﻿Public Class frmMontaDadosCondutor
    Inherits formPadrao


    Private Sub btnGerar_Click(sender As Object, e As EventArgs) Handles btnGerar.Click
        Try
            txtResultado.Text = generica.geraTextoCondutor(txtVeiculo, txtCondutor)
            Clipboard.SetDataObject(txtResultado.Text)
        Catch ex As Exception
            generica.gravaErro(ex)
        End Try
    End Sub

    Private Sub btnLimpar_Click(sender As Object, e As EventArgs) Handles btnLimpar.Click
        For Each controle In Me.Controls
            If TypeOf (controle) Is TextBox Then
                DirectCast(controle, TextBox).Text = String.Empty
            End If
        Next
    End Sub
End Class